8bitfiles.net/archives/archives.tar/archives/compuserve-file-archive/11 Exotic Applications/IBM-64.ARC/IBM->64.DOC

Commodore BASIC | 2019-04-13 | 4.3 KB | 107 lines

10 POKE 53280,0:POKE 53281,0:PRINT "[147][158]"
20 PRINT CHR$(14)"    [205][211]-[196][207][211] [198][201][204][197][160][195][207][208][201][197][210] [201][206][211][212][210][213][195][212][201][207][206][211]"
30 PRINT "         [195]OPYRIGHT [193]UGUST 1992"
40 PRINT "            [194]Y [210]USSELL [210]EED"
50 PRINT "   [212]HIS PROGRAM IS GOING TO BE"
60 PRINT "CLASSIFIED AS SHAREWARE.  [208]ERMISSION"
70 PRINT "IS GRANTED FOR FREE DISTRIBUTION OF"
80 PRINT "THIS PROGRAM, AS LONG AS IT IS"
90 PRINT "UNMODIFIED AND ACCOMPANIED BY THIS"
100 PRINT "INSTRUCTION FILE."
110 PRINT "   [206]O FEE IS REQUIRED UNLESS YOU WANT"
120 PRINT "TO RECEIVE THE NEXT VERSION.  [212]O"
130 PRINT "REGISTER AND RECEIVE THE NEXT VERSION"
140 PRINT "WHEN IT COMES OUT, SEND $2.00 IF YOU"
150 PRINT "ARE IN THE [204]ITTLE [210]OCK AREA OR A"
160 PRINT "MEMBER OF THE [193]RKANSAS [195]OMPUTER"
170 PRINT "[197]NTHUSIASTS. [207]THERS SEND $3.00.  [212]HE"
180 PRINT "EXTRA DOLLAR WILL BE TO COVER SHIPPING."
190 PRINT "[208]RESS ANY KEY TO CONTINUE.":POKE 198,0
200 GET A$:IF A$=""THEN 200
210 PRINT "[147]  [206]OW FOR SOME DOCUMENTATION.  [212]HE"
220 PRINT "COPIER REQUIRES TWO DISK DRIVES, ONE"
230 PRINT "OF WHICH MUST BE A [195]OMMODORE 1571 DISK"
240 PRINT "DRIVE.  [201]T WILL COPY FILES FROM A DISK"
250 PRINT "IN [201][194][205] OR [205][211]-[196][207][211] FORMAT TO A NORMAL"
260 PRINT "[195]OMMODORE DISK."
270 PRINT "   [212]HE FIRST PROMPT ASKS FOR THE DRIVE"
280 PRINT "NUMBER OF THE 1571 DISK DRIVE.  [201]F YOU"
290 PRINT "ENTER A NUMBER FOR ANY OTHER MODEL OF"
300 PRINT "DISK DRIVE, IT WILL RETURN TO THE"
310 PRINT "PROMPT.  [201]F YOU ENTER A NUMBER LESS"
320 PRINT "THAN 8, THE PROGRAM WILL TERMINATE."
330 PRINT "[201]F YOU ENTER A NUMBER HIGHER THAN"
340 PRINT "7 AND THAT DRIVE IS OFF OR NONEXISTANT,"
350 PRINT "THE PROGRAM WILL CRASH WITH AN ERROR."
360 PRINT "[201]F THIS HAPPENS, SIMPLY [210][213][206] THE PROGRAM"
370 PRINT "AGAIN."
380 PRINT "   [212]HE SECOND PROMPT ASKS FOR THE"
390 PRINT "SECOND DISK DRIVE NUMBER, THE ONE"
400 PRINT "WHICH WILL RECEIVE THE FILES.  [201]T"
410 PRINT "MAY NOT BE THE SAME AS THE FIRST DRIVE."
420 PRINT "[208]RESS ANY KEY TO CONTINUE.":POKE 198,0
430 GET A$:IF A$=""THEN 430
440 PRINT "[147]   [193]FTER THE PROMPTS ARE ANSWERED,"
450 PRINT "THE PROGRAM CHECKS THE FORMAT OF THE"
460 PRINT "[201][194][205] DISK AND CHECKS FOR ANY"
470 PRINT "INCONGRUITIES.  [201]F ANYTHING IS AMISS,"
480 PRINT "IT WILL TERMINATE, AND MAY DISPLAY SOME"
490 PRINT "ERROR INFORMATION."
500 PRINT "[206]EXT, IT TAKES A MINUTE OR TWO TO READ"
510 PRINT "THE [198]ILE [193]LLOCATION [212]ABLE INTO MEMORY."
520 PRINT "[207]NCE THIS IS DONE, THE PROGRAM COMES TO"
530 PRINT "A MENU.  [201]T DISPLAYS UP TO TEN ENTRIES"
540 PRINT "OF THE DIRECTORY.  [197]NTER THE NUMBER"
550 PRINT "OF A FILE TO COPY OR PICK ONE OF THE"
560 PRINT "OPTIONS IN THE LOWER WINDOW."
570 PRINT "   [211]UBDIRECTORIES ARE ALSO SUPPORTED."
580 PRINT "[201]F IN PLACE OF THE FILE SIZE THE"
590 PRINT "DISPLAY READS <DIR>, CHOOSING THAT"
600 PRINT "ENTRY WILL OPEN THAT SUBDIRECTORY."
610 PRINT "[208]RESS ANY KEY TO CONTINUE.":POKE 198,0
620 GET A$:IF A$=""THEN 620
630 PRINT "[147][212]HERE ARE TWO SPECIAL SUBDIRECTORIES."
640 PRINT "[212]HE SUBDIRECTORY WITH ONE PERIOD JUST"
650 PRINT "REREADS THE CURRENT SUBDIRECTORY."
660 PRINT "[212]HE SUBDIRECTORY WITH TWO PERIODS"
670 PRINT "RETURNS TO THE PREVIOUS SUBDIRECTORY."
680 PRINT "   [207]NCE A FILE HAS BEEN CHOSEN, THE"
690 PRINT "PROCESS IS AUTOMATED.  [212]HE PROGRAM"
700 PRINT "DOES NOT CHECK TO SEE IF THE TARGET"
710 PRINT "DISK HAS ENOUGH SPACE LEFT.  [201]F THERE"
720 PRINT "ARE ANY ERRORS, THE PROGRAM WILL EITHER"
730 PRINT "TERMINATE OR CRASH."
740 PRINT "[208]RESS ANY KEY TO CONTINUE.":POKE 198,0
750 GET A$:IF A$="" THEN 750
760 PRINT "[147]   [212]HE COPIER WILL COPY FILES AT A RATE"
770 PRINT "OF ABOUT 1000 BYTES PER MINUTE.  [212]HE"
780 PRINT "NEXT VERSION, WHICH WILL PROBABLY"
790 PRINT "REQUIRE THAT YOU REGISTER THIS VERSION,"
800 PRINT "SHOULD INCREASE THAT SPEED BY AT LEAST"
810 PRINT "FIVE TIMES, AND POSSIBLY AS MUCH AS"
820 PRINT "TWENTY TIMES.  [212]HAT VERSION MAY NOT"
830 PRINT "BE WRITTEN UNLESS THERE IS SOME"
840 PRINT "INTEREST IN IT, THOUGH."
850 PRINT "   [201] ALSO HAVE PLANS TO WRITE A COPIER"
860 PRINT "TO GO THE OTHER WAY AND COPY FILES FROM"
870 PRINT "[195]OMMODORE DISKS TO [201][194][205] DISKS, AND A"
880 PRINT "PROGRAM TO FORMAT [201][194][205] DISKS.  [212]HESE"
890 PRINT "WILL PROBABLY ALSO NOT GET WRITTEN"
900 PRINT "UNLESS THERE IS SOME INTEREST IN THEM."
910 PRINT "[208]RESS ANY KEY TO CONTINUE.":POKE 198,0
920 GET A$:IF A$="" THEN 920
930 PRINT "[147]  [201]F YOU HAVE ANY COMMENTS, PROBLEMS,"
940 PRINT "OR TO REGISTER TO GET THE NEXT VERSION,"
950 PRINT "CONTACT ME AT:"
960 PRINT:PRINT "[210]USSELL [210]EED"
970 PRINT "1405 [211]. [196]ONAGHEY [193]PT.19"
980 PRINT "[195]ONWAY, [193][210] 72032"
990 PRINT "[208]H. 501-336-8624"
1000 PRINT "OR ON THE [197]LYSIAN [194][194][211] UNDER THE HANDLE"
1010 PRINT "OF [199][197][207][198][198]."
1020 PRINT "[212]HE [197]LYSIAN NUMBER IS 501-835-6065."
1025 PRINT:PRINT "[205]Y EMAIL ADDRESS IS [e-mail]"
1030 PRINT "[159][207]NE FINAL NOTE:"
1040 PRINT "[201][194][205]-64 [195][207][208][217] MOST LIKELY WILL NOT WORK"
1050 PRINT "ON [201][194][205] HIGH DENSITY, 1.2MEG DISKS.[158]"